Imports Microsoft.VisualBasic

Public Class presupuestosubproyectomaterial
    Private _id As Integer
    Private _cantidad As Integer
    Private _descripcion As String
    Private _valorKg As Integer
    Private _fksubProyecto As Integer
    Private _fkmaterial As Integer
    Private _neto As Integer
    Private _iva As Integer

    Public Sub New(ByVal id As Integer, ByVal cantidad As Integer, ByVal descripcion As String, ByVal valorKg As Integer, ByVal fksubProyecto As Integer, _
                    ByVal fkmaterial As Integer, ByVal neto As Integer, ByVal iva As Integer)
        _id = id
        _cantidad = cantidad
        _descripcion = descripcion
        _valorKg = valorKg
        _fksubProyecto = fksubProyecto
        _fkmaterial = fkmaterial
        _neto = neto
        _iva = iva
    End Sub

    Property neto() As Integer
        Get
            Return _neto
        End Get
        Set(ByVal value As Integer)
            _neto = value
        End Set
    End Property

    Property iva() As Integer
        Get
            Return _iva
        End Get
        Set(ByVal value As Integer)
            _iva = value
        End Set
    End Property

    Property id() As Integer
        Get
            Return _id
        End Get
        Set(ByVal value As Integer)
            _id = value
        End Set
    End Property

    Property cantidad() As Integer
        Get
            Return _cantidad
        End Get
        Set(ByVal value As Integer)
            _cantidad = value
        End Set
    End Property

    Property descripcion() As String
        Get
            Return _descripcion
        End Get
        Set(ByVal value As String)
            _descripcion = value
        End Set
    End Property

    Property valorKg() As Integer
        Get
            Return _valorKg
        End Get
        Set(ByVal value As Integer)
            _valorKg = value
        End Set
    End Property

    Property fksubProyecto() As Integer
        Get
            Return _fksubProyecto
        End Get
        Set(ByVal value As Integer)
            _fksubProyecto = value
        End Set
    End Property

    Property fkmaterial() As Integer
        Get
            Return _fkmaterial
        End Get
        Set(ByVal value As Integer)
            _fkmaterial = value
        End Set
    End Property
End Class
